home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / Demos_Files / OLE_Automation / TestNetworkCode.txt < prev    next >
Encoding:
Text File  |  2002-03-08  |  770 b   |  27 lines
  1. Private Sub cmdTest_Click()
  2.  
  3.     Dim NSApp As Object
  4.     Dim NSBB As Object
  5.     Dim outputArray As Variant
  6.     Dim finalOutput As Single
  7.     Dim inputArray(0 To 1, 0 To 0) As Variant
  8.     Dim inputArray2 As Variant
  9.         
  10.     Set NSApp = CreateObject("NeuroSolutions.Application")
  11.     Set NSBB = NSApp.activeBreadboard
  12.     
  13.     inputArray(0, 0) = CSng(txtXInput.Text)
  14.     inputArray(1, 0) = CSng(txtYInput.Text)
  15.     inputArray2 = inputArray
  16.     
  17.     NSBB.sendDataToEngine inputArray2, "oLEInput"
  18.     NSBB.send "control.resetNetwork()"
  19.     NSBB.send "control.runNetwork()"
  20.     
  21.     outputArray = NSBB.send("trainingCostProbe.getProbeData()")
  22.     finalOutput = outputArray(0, 0)
  23.     txtOutput.Text = Format(finalOutput, "0.00000")
  24.     
  25. End Sub
  26.  
  27.